

load cap.txt;

map = [0 0 0; .85 .85 .85];

subplot(1,2,1);

h=bar(cap(:,1), cap(:,2:3));

colororder(map);

axis([1876 1914 0 9.5])

ylabel('Billions of Dollars')

z=legend(h,{ 'Industrials, Mining, Utilities' 'Railroads'});

title('Total Outstanding Corporate Bonds');

subplot(1,2,2);

load vol.txt;

i=plot(vol(:,1),vol(:,2),'k');

axis([1880 1911 0 1000]);

title('Total Trading Volume, Corporate Bonds');

ylabel('Millions of Dollars (Par Value)')
